/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / v_cdot

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 03 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 16 | 33 30 20 20 20 20 44 41 |.hts"...|30    DA|
|00000150| 54 41 20 31 2c 32 2c 33 | 2c 34 2c 35 2c 36 00 0d |TA 1,2,3|,4,5,6..|
|00000160| 34 30 20 20 20 20 52 45 | 53 54 4f 52 45 00 00 2c |40    RE|STORE..,|
|00000170| 35 30 20 56 65 63 74 6f | 72 3a 20 20 49 4d 41 47 |50 Vecto|r:  IMAG|
|00000180| 45 20 22 5b 22 2c 44 44 | 2c 44 44 2c 44 44 2c 44 |E "[",DD|,DD,DD,D|
|00000190| 44 2c 44 44 2c 44 44 2c | 22 20 5d 22 00 30 36 30 |D,DD,DD,|" ]".060|
|000001a0| 20 52 6f 77 5f 76 65 63 | 74 6f 72 3a 20 20 49 4d | Row_vec|tor:  IM|
|000001b0| 41 47 45 20 22 5b 22 2c | 44 44 2c 44 44 2c 44 44 |AGE "[",|DD,DD,DD|
|000001c0| 2c 44 44 2c 44 44 2c 44 | 44 2c 22 20 5d 22 00 13 |,DD,DD,D|D," ]"..|
|000001d0| 37 30 20 20 20 20 4f 50 | 54 49 4f 4e 20 42 41 53 |70    OP|TION BAS|
|000001e0| 45 20 31 00 00 17 38 30 | 20 20 20 20 43 4f 4d 50 |E 1...80|    COMP|
|000001f0| 4c 45 58 20 41 28 33 29 | 2c 42 28 33 29 00 00 12 |LEX A(3)|,B(3)...|
|00000200| 39 30 20 20 20 20 43 4c | 45 41 52 20 53 43 52 45 |90    CL|EAR SCRE|
|00000210| 45 4e 00 15 31 30 30 20 | 20 20 46 4f 52 20 4c 6f |EN..100 |  FOR Lo|
|00000220| 6f 70 3d 31 20 54 4f 20 | 33 00 00 12 31 31 30 20 |op=1 TO |3...110 |
|00000230| 20 20 20 20 52 45 41 44 | 20 41 78 2c 42 78 00 1b |    READ| Ax,Bx..|
|00000240| 31 32 30 20 20 20 20 20 | 41 28 4c 6f 6f 70 29 3d |120     |A(Loop)=|
|00000250| 43 4d 50 4c 58 28 41 78 | 2c 30 29 00 00 1b 31 33 |CMPLX(Ax|,0)...13|
|00000260| 30 20 20 20 20 20 42 28 | 4c 6f 6f 70 29 3d 43 4d |0     B(|Loop)=CM|
|00000270| 50 4c 58 28 42 78 2c 30 | 29 00 00 0f 31 34 30 20 |PLX(Bx,0|)...140 |
|00000280| 20 20 4e 45 58 54 20 4c | 6f 6f 70 00 00 19 31 35 |  NEXT L|oop...15|
|00000290| 30 20 20 20 50 52 49 4e | 54 20 22 56 65 63 74 6f |0   PRIN|T "Vecto|
|000002a0| 72 20 61 20 3d 20 22 00 | 00 21 31 36 30 20 20 20 |r a = ".|.!160   |
|000002b0| 50 52 49 4e 54 20 55 53 | 49 4e 47 20 52 6f 77 5f |PRINT US|ING Row_|
|000002c0| 76 65 63 74 6f 72 3b 41 | 28 2a 29 00 00 19 31 37 |vector;A|(*)...17|
|000002d0| 30 20 20 20 50 52 49 4e | 54 20 22 56 65 63 74 6f |0   PRIN|T "Vecto|
|000002e0| 72 20 62 20 3d 20 22 00 | 00 1d 31 38 30 20 20 20 |r b = ".|..180   |
|000002f0| 50 52 49 4e 54 20 55 53 | 49 4e 47 20 56 65 63 74 |PRINT US|ING Vect|
|00000300| 6f 72 3b 42 28 2a 29 00 | 00 35 31 39 30 20 20 20 |or;B(*).|.5190   |
|00000310| 50 52 49 4e 54 20 22 54 | 68 65 20 44 4f 54 20 70 |PRINT "T|he DOT p|
|00000320| 72 6f 64 75 63 74 20 69 | 73 20 22 3b 46 4e 56 5f |roduct i|s ";FNV_|
|00000330| 63 64 6f 74 28 41 28 2a | 29 2c 42 28 2a 29 29 00 |cdot(A(*|),B(*)).|
|00000340| 00 18 32 30 30 20 20 20 | 44 45 4c 53 55 42 20 46 |..200   |DELSUB F|
|00000350| 4e 41 69 20 54 4f 20 45 | 4e 44 00 09 32 31 30 20 |NAi TO E|ND..210 |
|00000360| 20 20 45 4e 44 00 ff ff |                         |  END...|        |
+--------+-------------------------+-------------------------+--------+--------+